home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / PASCAL / 1463.ZIP / DRAW-2D.ARC / DELOBJ.PAS < prev    next >
Pascal/Delphi Source File  |  1986-11-21  |  295b  |  10 lines
  1. PROCEDURE DELOBJ;
  2.    BEGIN
  3.      DRAWARY[SELNUM].OBJTYP := 0;
  4.      MNUM := 1;                   (* OBJECT IS GONE *)
  5.      M1 := 2;
  6.      MOUSE(M1,M2,M3,M4);          (* HIDE MOUSE *)
  7.      REDRAW;
  8.      M1 := 1;                     (* SHOW MOUSE *)
  9.      MOUSE(M1,M2,M3,M4);
  10.   END; (*PROC*)